Public Class DocumentoAlmacen

    Dim _CIA, _SUC, _TDOC, _DCACOD, _FECDOC, _EST, _FECTER As String

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal suc As String, ByVal tdoc As String, ByVal dcacod As String, ByVal fecDocumento As String, ByVal estado As String, ByVal fecTermino As String)
        Me._CIA = cia
        Me._SUC = suc
        Me._TDOC = tdoc
        Me._DCACOD = dcacod
        Me._FECDOC = fecDocumento
        Me._EST = estado
        Me._FECTER = fecTermino
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(ByVal value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(ByVal value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOC
        End Get
        Set(ByVal value As String)
            _TDOC = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _DCACOD
        End Get
        Set(ByVal value As String)

        End Set
    End Property

    Public Property DCA_FechaDocumento() As String
        Get
            Return _FECDOC
        End Get
        Set(ByVal value As String)
            _FECDOC = value
        End Set
    End Property

    Public Property EST_Codigo() As String
        Get
            Return _EST
        End Get
        Set(ByVal value As String)
            _EST = value
        End Set
    End Property

    Public Property DCA_FechaTermino() As String
        Get
            Return _FECTER
        End Get
        Set(ByVal value As String)
            _FECTER = value
        End Set
    End Property

End Class
